home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zc.d64 / proc.scrolldown < prev    next >
Text File  |  2007-03-01  |  400b  |  15 lines
  1. 9000 ╨╥╧├ SCHUIF'NAAR'BENEDEN ├╠╧╙┼─
  2. 9010   ╒╙┼ SYSTEM
  3. 9020   ─╔═ SCHERM$ ╧╞ 1505, OPVUL$ ╧╞ 3
  4. 9030   
  5. 9040   GETSCREEN(SCHERM$)
  6. 9050   
  7. 9060   SCHERM$(66:1505):=SCHERM$(6:1465)
  8. 9070   
  9. 9080   ACHT'GR'KL:=╧╥─(SCHERM$(2))
  10. 9090   OPVUL$:="  "+├╚╥$(ACHT'GR'KL+ACHT'GR'KL*16)
  11. 9100   ╞╧╥ VUL:=6 ╘╧ 63 ╙╘┼╨ 3 ─╧ SCHERM$(VUL:VUL+2):=OPVUL$
  12. 9110   
  13. 9120   SETSCREEN(SCHERM$)
  14. 9130 ┼╬─╨╥╧├ SCHUIF'NAAR'BENEDEN
  15.